home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / txt.bdir < prev    next >
Text File  |  2007-03-01  |  1KB  |  63 lines
  1. ┴╬╧╘╚┼╥ ╥┼┴─ ─╔╥
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6. ╔N ┬┴╙╔├ THE COMMANDS
  7.  
  8.    ╠╧┴─"$",8
  9.    ╠╔╙╘
  10.  
  11. ARE GIVEN TO READ THE DIRECTORY. ╘HE
  12. FOLLOWING PROCEDURE EMULATES THIS
  13. COMMANDS, BUT YOU CAN DO MORE WITH
  14. IT, BECAUSE IT IS WRITTEN IN ├╧═┴╠.
  15.  
  16. ╘HE PROCEDURE OPENS THE DIRECTORY
  17. LIKE ┬┴╙╔├ DOES, THEN EVERY DIRECTORY
  18. ITEM IS READ; AND IT'S FAST!
  19.  
  20. ╫ITH THE LOCAL PROCEDURE ╚┴╬─╠┼ ONE
  21. CAN DO ALMOST EVERYTHING WITH ╔╘┼═$.
  22.  
  23. ╨╥╧├ BDIR ├╠╧╙┼─
  24.  ─╔═ D$ ╧╞ 1
  25.  Z:=┌╧╬┼
  26.  ┌╧╬┼ 0
  27.  ╧╨┼╬ ╞╔╠┼ 99,"U8:$/S0/D+"
  28.  D$:=╟┼╘$(99,4) // DUMMY READ
  29.  ╫╚╔╠┼ ╬╧╘ ┼╧╞(99) ─╧
  30.   LO:=╧╥─(╟┼╘$(99,1))
  31.   HI:=╧╥─(╟┼╘$(99,1))
  32.   ITEM$:=" "+╙╘╥$(LO+256*HI)+" "
  33.   ITEM$:+╟┼╘$(99,25)
  34.   D$:=╟┼╘$(99,1)
  35.   ╫╚╔╠┼ D$<>""0"" ─╧
  36.    ITEM$:+D$
  37.    D$:=╟┼╘$(99,1)
  38.   ┼╬─╫╚╔╠┼
  39.   HANDLE(ITEM$)
  40.   D$:=╟┼╘$(99,2) // DUMMY READ
  41.  ┼╬─╫╚╔╠┼
  42.  ├╠╧╙┼ ╞╔╠┼ 99
  43.  ┌╧╬┼ Z
  44.  //
  45.  ╨╥╧├ HANDLE(ITEM$)
  46.   ╨╥╔╬╘ ITEM$
  47.  ┼╬─╨╥╧├ HANDLE
  48. ┼╬─╨╥╧├ BDIR
  49.  
  50. ╧NE CAN ADD THE LOCAL PROCEDURE
  51. SPACEBAR, TO BE CALLED BEFORE/AFTER
  52. HANDLE, TO STOP AND RESUME CATALOG
  53. PRINTING:
  54.  
  55. ╨╥╧├ SPACEBAR ├╠╧╙┼─
  56.  ╔╞ ╦┼┘$=" " ╘╚┼╬
  57.   ╥┼╨┼┴╘  ╒╬╘╔╠ ╦┼┘$=" "
  58.  ┼╬─╔╞
  59. ┼╬─╨╥╧├ SPACEBAR
  60.  
  61. ╧N THE DISK IS A SMALL DEMO PROGRAM
  62. ILLUSTRATING THE LINES ABOVE.
  63.